home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64 / change adress (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  275b  |  11 lines
  1. 10 fora=1to3
  2. 20 readn1$,n2$,s1,e1,sl,sh
  3. 30 sys57812 n1$,8,1:poke780,0:sys65493
  4. 40 open1,8,1,n2$+",p,w"
  5. 50 print#1,chr$(sl);chr$(sh);
  6. 60 forx=s1toe1:print#1,chr$(peek(x));:next
  7. 70 close1:next
  8. 80 data "p1","e'tr.maus vc1351",49152,49747,0,0
  9. 90 data "p2","e'hi.maus",49152,49462,0,0
  10. 100 data "p3","e'lo.maus",49152,49475,0,0
  11.